10 REM       *** DFT1.0 - GENERATE WAVE FORM  ***

12 CLS : GOSUB 1000

14 DIM Y(16)

16 CLS

18 INPUT "NUMBER OF TERMS"; N

20 PI = 3.14159265358#

30 FOR I = 0 TO 16: IARG = I * PI / 8

32 Y = 0

40 FOR J = 1 TO N STEP 2: Y = Y - COS(J * IARG) / (J * J): NEXT J

42 Y(I) = Y

50 PRINT Y

60 NEXT I

62 PRINT

70 INPUT "ENTER TO PLOT DATA"; A$

100 ' ***  PLOT DATA  ***

102 SCREEN 9, 1, 1, 1: COLOR 15, 1: CLS : YF = -1: YT = -1

104 LINE (10, 10)-(10, 360)

106 LINE (600, 180)-(10, 180)

110 FOR I = 0 TO 16

112 LINE (37.5 * I + 10, 180 - 50 * Y(I))-(37.5 * I + 10, 180 - 50 * Y(I))

114 NEXT I

120 INPUT "START PROGRAM AGAIN (Y/N)"; A$

130 IF A$ <> "N" AND A$ <> "n" THEN 16

199 CLS : END

1000 ' ***  PRINT TEST INFO  ***

1010 SCREEN 9, 1, 1: COLOR 15, 1

1012 PRINT SPC(25); "DFT1-4-2": PRINT : PRINT

1020 PRINT SPC(5); "THIS ROUTINE GENERATES A TRIANGLE AS SHOWN IN FIGURE 1.4.2."

1030 PRINT SPC(5); "THIS COMPILED VERSION ALSO PLOTS THE DATA AFTER PRINTING"

1040 PRINT SPC(5); "THE NUMERICAL DATA."

1050 PRINT : PRINT

1060 INPUT "ENTER TO CONTINUE"; A$

1070 RETURN



